home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PLUS4 / plus4disk1.d64 / ch2.10 draw < prev    next >
Text File  |  2009-01-03  |  8KB  |  130 lines

  1. Ç*NB"1:CH2.10  DRAW"
  2. Ç*SP0:LM8:RM62:PP66:PG59
  3. Ç*VP3:HL8:HR72:HD0:├16/+4: ─╥┴╫╔╬╟       ÇúÇúÇúÇúÇúÇúÇúÇúÇúÇúÇúÇúÇúÇú,,╙ECTION XX
  4. Ç*HS2:------------------------------------,,----------
  5. Ç*FT0:-----------------------,,----------
  6. Ç*FS3:(C) 1984 ┼LIZABETH ─EAL,,         Ç#
  7. ╙ECTION
  8. Ç*LN2:CN1;─╥┴╫╔╬╟ ┴╬─ ┼╪╠╧╥╔╬╟ ├╧╠╧╥╙Ç*LN2:CN0
  9.      ╔T'S YOUR TURN TO DRAW THINGS. ╫HILE WORKING WITH THIS PROGRAM YOU CAN DOODLE, LEARN ABOUT MORE GRAPHIC COMMANDS, SUCH AS ╙╙╚┴╨┼ AND ╟╙╚┴╨┼ AND TO REVIEW SEVERAL ASPECTS OF COLOR WORK IN THE MULTICOLOR MODE.
  10.  
  11.      ╘HE DRAWING PROGRAM PERMITS YOU TO DRAW THIN LINES IN COLOR. ╔T'S AN ALL PURPOSE PROGRAM THAT CAN BE USED IN MANY WAYS. ╙OME SECTIONS OF THE PROGRAM CAN BE USED AS BUILDING BLOCKS TO, FOR EXAMPLE, PROGRAMS THAT NEED ANIMATION.
  12.  
  13.      ╔T'S A SIMPLE PROGRAM, IT HAS NO PAINTING (FILLING), NO AUTOMATIC DRAWING OF GEOMETRIC FIGURES AS YOU SOMETIMES SEE IN COMMERCIAL PACKAGES, NO FRILLS.
  14.  
  15. // PRG: DRAW HR/MC //
  16.  
  17. Ç*FP21
  18. ***  ╓┴╥╔┴┬╠┼╙  ***
  19.  
  20. ╟      GRAPHIC MODE: 2=SPLIT HIGH RESOLUTION
  21.                      4=SPLIT MULTICOLOR
  22. ╠╟$    CONTAINS A LIST OF KEYS THAT ARE
  23.        RECOGNIZED BY THE PROGRAM
  24. ╠╬     IS THE LENGTH OF ABOVE STRING
  25. ╩      THE DISPATCHER; CONTAINS WHAT KEY YOU
  26.        PRESSED; NUMBER REFERS TO POSITION
  27.        IN THE ╠╟$ STRING
  28. ─╪(),─┘() ARRAYS HOLD NUMBER OF PIXELS TO MOVE
  29.        IN THE CURSOR DIRECTION FOR 4 DIRECTIONS
  30. ┴$     ONE PIXEL SMALL CURSOR
  31. ├$     REMEMBERS WHAT'S UNDER THE CURSOR AS IT
  32.        MOVES OR JUMPS
  33. ╪,┘    INITIAL AND DRAWING COORDINATES
  34. ├├     CURSOR COLOR
  35. ─      DRAW MODE        - 
  36. ┼      ERASE MODE        !   OFF: ZERO
  37. ═      MOVE MODE         !   ON : NOT ZERO
  38. ╚      JUMP (HOP) MODE  - 
  39.  
  40. ***  ╔╬╙╘╥╒├╘╔╧╬╙  ***
  41.  
  42.      ╘YPING NOTE: IN LINE 120 THE LONG STRING ╠╟$ TELLS THE COMPUTER WHICH KEYS ARE LEGAL. ╘HE FIRST FOUR CHARACTERS ARE THE CURSOR KEYS IN THE ╥╠─╒ SEQUENCE: RIGHT, LEFT, DOWN, UP. ╠ETTERS  ─ ┼ ═ ╩ ╤  FOLLOW. ╘HEN WE TYPE THE COLORS ON THE ├╘╥╠ KEY, FOLLOWED BY THE ONES ON THE LOGO KEY. ╬UMBERS ZERO TO SEVEN FOLLOW, AND THE LAST CHARACTER IS ╚╧═┼. ╔N LINE 125 IN QUOTES TYPE LETTERS ┴ ┬ ├.
  43.  
  44.      ╔F YOU PLAN TO TYPE THE USE INSTRUCTIONS IN LINES 300 AND UP, YOU DON'T NEED TO INSERT THE REVERSE CHARACTERS FOR EACH LETTER, UNLESS YOU FEEL LIKE IT.  ╔N FACT, YOU DO NOT HAVE TO TYPE THOSE INSTRUCTIONS AT ALL, A ╥┼╘╒╥╬ CODED IN LINE 300 WILL LET YOU WORK THE PROGRAM WITHOUT PRINTING ANY INSTRUCTIONS.
  45.  
  46.      ╥╒╬ THE PROGRAM WITH ╟ SET TO EITHER 2 OR 4, DEPENDING ON WHICH GRAPHIC MODE YOU WISH TO TRY. ├HANGE ╟ IN LINE 110 TO DO THAT. ╘HE PROGRAM WILL ADJUST THINGS TO EITHER MODE, WITH ONE EXCEPTION; IN MULTICOLOR MODE HOS OR JUMPS WILL BE TWICE AS BIG.
  47.  
  48. Ç*FP14
  49. ---------------------------------------------
  50.       ╒ ╙ ┼   ╔ ╬ ╙ ╘ ╥ ╒ ├ ╘ ╔ ╧ ╬ ╙        
  51. ---------------------------------------------
  52. ═ODE SELECTION KEYS: PRESS ANY ONE KEY
  53. IN THIS GROUP. ╘HE SELECTION REMAINS
  54. ENABLED UNTIL YOU PRESS ANOTHER ONE OF THE
  55. KEYS IN THIS GROUP:
  56.      
  57.      ─         DRAW
  58.      ┼         ERASE
  59.      ═         MOVE 1 PIXEL  WITHOUT DRAWING
  60.      ╩         JUMP 8 PIXELS WITHOUT DRAWING
  61.      ╤         QUIT THE PROGRAM
  62. Ç*FP8
  63. ---------------------------------------------
  64. ├OLOR SOURCE SELECTION KEYS:
  65.  
  66.      ┴,┬,├     PICK COLOR SOURCE #1 OR 2
  67.                OR 3. ╫ATCH COLOR #3 (├). ╫HEN
  68.                YOU DRAW WITH IT, AND LATER
  69.                CHANGE IT, ALL LINES DRAWN
  70.                USING ├ WILL CHANGE COLOR
  71. Ç*FP9
  72. ---------------------------------------------
  73. ├OLOR:
  74.  
  75.       ├╘╥╠/    ├╘╥╠+ NUMBER OR
  76.       ╠╧╟╧+    LOGO + NUMBER CHANGE THE
  77.       NUMBER   COLOR OF WHATEVER SOURCE
  78.                (┴,┬,├) YOU SELECTED. ╘HIS
  79.                IS DISPLAYED IN THE CORNER,
  80.                SO YOU CAN SEE WHAT THE
  81.                COMPUTER HEARD FROM YOU.
  82. Ç*FP5
  83. ---------------------------------------------
  84. ╠UMINANCE:
  85.  
  86.       0-7 KEYS CHANGE THE LUMINANCE OF
  87.                THE COLOR SOURCE.
  88. Ç*FP12
  89. ---------------------------------------------
  90. ┴CTION KEYS:
  91.  
  92.      ├URSORS   WHEN HELD DOWN THEY DRAW,
  93.                ERASE, OR JUMP IN THE CURSOR
  94.                DIRECTION. ╘HEIR FUNCTION 
  95.                DEPENDS ON MODE SELECTIONS
  96.  
  97.                TO GO ON A DIAGONAL, PRESS
  98.                ALTERNATING HORIZONTAL AND
  99.                VERTICAL CURSOR KEYS.
  100. ---------------------------------------------
  101. Ç*LN2
  102.      ╘HE COLOR WORK IS NOT AT ALL EASY TO GRASP UNTIL YOU WORK WITH IT, EXPERIENCE THE JOYS OF COLOR PLOTS AS WELL AS SOME SURPRISES AT THE MEANING OF WORDS SUCH AS "COLOR SOURCE" THAT YOU FIND IN THE MANUAL. ╘HERE IS NO BETTER WAY TO LEARN WHAT THE COMPUTER HAS TO OFFER THAN BY DOING IT.
  103.  
  104. ***  ─┼╘┴╔╠╙ ┴╬─ ╨╥╧╩┼├╘╙  ***
  105.  
  106.      ╫E HAVE A SUBSTANTIAL NUMBER OF OPTIONS IN THIS PROGRAM SHOWN IN THE LIST OF LEGAL KEYS IN VARIABLE ╠╟$. ╫E IGNORE ANY OTHER KEYS, NOTE HOW THIS IS HANDLED IN LINE 190 WHERE WE USE THE ╔╬╙╘╥ FUNCTION: THIS IS A COMMAND NEW IN ├OMMODORE ┬ASIC, IT TELLS US THE POSITION OF ONE STRING WITHIN ANOTHER. ╨RECISELY WHAT WE NEED. ╔T RETURNS A ZERO WHEN ╔$ IS NOT MATCHED BY ANY CHARACTERS IN ╠╟$.
  107.  
  108.      ─EPENDING ON WHAT KEYS WERE PRESSED, WE HAVE SEVERAL CHOICES TO MAKE. ╩ AND ═ ARE SIMILAR: JUMPS AND MOVES DON'T DRAW. ─ AND ┼ ARE SIMILAR, BOTH DRAW, BUT ONE WITH A REAL COLOR, THE OTHER WITH THE SCREEN COLOR.
  109.  
  110.      ╔T MIGHT BE WORTHWILE FOR YOU TO TRACE WHAT THE PROGRAM DOES FOR EACH INPUT LETTER ON A PIECE OF PAPER. ╬OTE THAT EXPRESSIONS SUCH AS THOSE IN LINE 250 ARE LEGAL. ┴N ASSIGNMENT SUCH AS ╚=╚-7*(╩=8) DEPENDS ON THE FACT THAT IF ╩ IS 8, THEN ╩=8 IS MINUS 1, SO WE ULTIMATELY ADD 7 TO ╚ MAKING IT 8. ╙IMILAR PROCEDURE IS USED WITH THE DRAWING COLOR ├├ AS WELL AS SETTING A MOVE FLAG ═.
  111.  
  112.      ╘HIS IS A COMPACT WAY OF CODING THINGS TO SAVE YOU TYPING EFFORT. ╔F YOU UNDERSTAND IT TODAY, GREAT! ╔F NOT, DON'T WORRY ABOUT IT, YOU DO NOT HAVE TO KNOW IT RIGHT AWAY, YOU CAN USE PLAIN ╔╞ STATEMENTS IF YOU WISH, BUT THERE WILL BE LOTS OF THEM!
  113.  
  114.      ╘HE PROGRAM CAN BE USED IN EITHER THE MULTICOLOR OR THE (SINGLE COLOR) HIGH RESOLUTION MODE. ╠EARN HOW TO CONTROL COLORS IN AN 8X8 CELL. ┘OU SHOULD BE ABLE TO SEE THAT IN THE HIGH-RESOLUTION MODE (╟=2 IN LINE 110) YOU CAN ONLY USE COLOR SOURCE 1 (LABELLED ┴ IN THE PROGRAM), AND THAT IF YOU CHANGE THAT COLOR, SOME ADJACENT POINTS ALSO MAY CHANGE COLOR.
  115.  
  116.      ╫HEN YOU USE IT IN THE MULTICOLOR MODE, YOU'LL SEE THAT ANY OF THE THREE COLOR SOURCES CAN BE USED (LABELLED ┴,┬,├) AT INTERSECTIONS OF LINES, BUT THAT, ONCE AGAIN, IF YOU CHANGE THE COLOR (AND THAT INCLUDES LUMINANCE!) IN ONE PLACE, THE NEIGHBORS MIGHT BE AFFECTED IF THEY HAVE BEEN DRAWN WITH THE SAME COLOR SOURCE. ╔F YOU THINK IT'S CONFUSING, YOU ARE NOT ALONE. ╚OPEFULLY, USING THIS PROGRAM AND OBSERVING WHAT COMES OUT IN THE SCREEN WILL REDUCE THE CONFUSION.
  117.  
  118.      ╬EEDLESS TO SAY, IF YOU ARE IN THE HIGH-RESOLUTION MODE (╟=1 OR 2), THE COMMANDS DEALING WITH MULTIPLE COLOR SOURCES ARE DISABLED. ╔F YOU ARE IN THE MULTICOLOR MODE ╟=3 OR 4, THE COMMANDS WORK AS DESCRIBED.
  119.  
  120.      ╔F YOU WISH, YOU CAN SAVE YOUR DRAWING MASTERPIECE BY FOLLOWING THE INSTRUCTIONS GIVEN IN A SECTION ON SAVING ANY MEMORY, LATER ON IN THE BOOK, BUT DO NOT ATTEMPT IT UNLESS YOU ARE FAIRLY FAMILIAR WITH THE WORKINGS OF THE COMPUTER. ╘HE SAVING PART IS NOT DIFFICULT, BUT SUBSEQUENT LOADING CAN CAUSE TROUBLE. ┘OU HAVE BEEN WARNED.
  121.  
  122. ***  ╙╒══┴╥┘  ***
  123.  
  124.      ╘HE COMPUTER, FROM ITS POINT OF VIEW, SUPPORTS TWO KINDS OF GRAPHICS: ╚IGH RESOLUTION AND ═ULTICOLOR.
  125.  
  126.      ╔N THE ╚IGH ╥ESOLUTION (╟╥┴╨╚╔├ 1 AND 2) MODE THE SCREEN IS SEEN AS A MATRIX OF 320 POINTS ACROSS AND 200 POINTS DOWN. ╫E GET LOTS OF DETAIL AND SHARPNESS. ╫E LOSE COLORS - YOU MAY ONLY HAVE TWO COLORS PER 8X8 CELL. ┘OU PLOT WITH ├╧╠╧╥1 WHICH IS THE SAME AS THE CURSOR COLOR, THE OTHER COLOR IS THE BACKGROUND COLOR. ┘OU CAN HAVE LOTS OF COLORS ON THE SCREEN BUT ONLY LINES OF THE SAME COLOR CAN INTERSECT WITHOUT AFFECTING EACH OTHER.
  127.  
  128.      ╔N THE ═ULTICOLOR MODE (╟╥┴╨╚╔├ 3 AND 4) THE SCREEN IS SEEN AS A MATRIX 160 POINTS ACROSS AND 200 POINTS DOWN. ╫E CAN USE UP TO FOUR COLORS IN ANY 8X8 CELL. ╘HAT MEANS THERE ARE THREE "PEN" COLORS AND THE SCREEN COLOR. ╘HE PLOTS ARE COARSER, BUT CAN BE MORE BEAUTIFUL BECAUSE OF THE ADDED COLOR. ╧NCE AGAIN, YOU CAN HAVE LOTS OF COLORS ON THE SCREEN, BUT ONLY THREE (PLUS THE SCREEN COLOR, OF COURSE) CAN INTERSECT WITHOUT CAUSING TROUBLES TO ADJACENT AREAS.
  129. Ç*FP0
  130.